object BakRecForm: TBakRecForm Left = 8 Top = 8 Width = 614 Height = 418 ActiveControl = DBGridRECB Caption = 'Eski Re�eteler ve Re�ete Se�imi' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Panel4: TPanel Left = 0 Top = 0 Width = 606 Height = 391 HelpContext = 111 Align = alClient BevelInner = bvLowered BorderWidth = 1 Color = 8404992 TabOrder = 0 object BitBtnSec: TBitBtn Left = 401 Top = 355 Width = 95 Height = 25 Hint = 'Enter' HelpContext = 111 Caption = 'Re�ete Se�' Default = True Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BitBtnSecClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F 00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F 00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00 F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0 F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF 0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF 00337777FFFF77FF7733EEEE00000000033377777777777773330000} NumGlyphs = 2 end object Panel1: TPanel Left = 4 Top = 6 Width = 596 Height = 22 BevelInner = bvLowered Caption = 'RE�ETELER' Color = clRed Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 7 Top = 3 Width = 42 Height = 14 Caption = 'Aranan :' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object LabelAra: TLabel Left = 51 Top = 4 Width = 3 Height = 14 Color = clWhite Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end end object Panel2: TPanel Left = 4 Top = 225 Width = 596 Height = 21 BevelInner = bvLowered Caption = 'RE�ETE ��ER�KLER�' Color = clRed Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label4: TLabel Left = 496 Top = 3 Width = 88 Height = 14 Caption = 'Hasta Bul F6 Tu�u' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = DBGridRECBDblClick end end object BitBtnIptal: TBitBtn Left = 504 Top = 355 Width = 95 Height = 25 Hint = 'Esc' HelpContext = 111 Cancel = True Caption = 'Vazge�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 2 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BitBtnIptalClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object BitBtn1: TBitBtn Left = 109 Top = 355 Width = 145 Height = 25 HelpContext = 111 Caption = '&R.K.Def. Kay�t Et/��kar' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055 555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000 05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000 FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000 05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0 555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050 90555757575757577755050505050555055575757575755575550000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 7 Top = 355 Width = 93 Height = 25 Hint = 'Ctrl-Delete Tu�u' HelpContext = 111 Caption = 'Re�ete &Sil' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 Spacing = 7 end object BitBtnARA: TBitBtn Left = 262 Top = 355 Width = 129 Height = 25 HelpContext = 111 Caption = 'Re�ete Tarihi &Ara' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtnARAClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 Spacing = 7 end end object DBGrid1: TDBGrid Left = 4 Top = 247 Width = 595 Height = 100 HelpContext = 111 Color = clGray DataSource = SATBAKRSC FixedColor = clSilver Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 1 TitleFont.Color = clNavy TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end object DBGridRECB: TDBGrid Left = 4 Top = 30 Width = 596 Height = 193 HelpContext = 111 Color = clSilver Ctl3D = True DataSource = RecBakSRC FixedColor = clRed Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 2 TitleFont.Color = clWhite TitleFont.Height = -11 TitleFont.Name = 'Arial Tur' TitleFont.Style = [fsBold] OnColEnter = DBGridRecBColEnter OnDblClick = DBGridRECBDblClick OnKeyDown = DBGridRECBKeyDown OnKeyPress = DBGridRECBKeyPress end object PanelBUL: TPanel Left = 240 Top = 249 Width = 163 Height = 103 HelpContext = 111 BevelInner = bvLowered BorderWidth = 3 Caption = 'PanelBUL' Color = clBlack TabOrder = 3 Visible = False object Label2: TLabel Left = 44 Top = 8 Width = 75 Height = 15 Caption = 'Re�ete Tarihi' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 44 Top = 48 Width = 65 Height = 15 Caption = 'olanlar� bul' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object MaskEdit1: TMaskEdit Left = 44 Top = 24 Width = 69 Height = 22 EditMask = '!99/99/9999;1;_' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 0 Text = ' . . ' OnExit = MaskEdit1Exit end object Button1: TButton Left = 10 Top = 70 Width = 65 Height = 23 Caption = '&Tamam' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 89 Top = 70 Width = 65 Height = 23 Caption = '&Vazge�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button2Click end end object SATBAKRSC: TDataSource DataSet = SATBAKT Left = 17 Top = 285 end object SATBAKT: TTable BeforeDelete = SATBAKTBeforeDelete OnCalcFields = SATBAKTCalcFields DatabaseName = 'ECZ' IndexFieldNames = 'SATISNO' MasterFields = 'SATISNO' MasterSource = RecBakSRC TableName = 'SATIS.DB' Left = 14 Top = 255 object SATBAKTSATISNO: TFloatField DisplayWidth = 10 FieldName = 'SATISNO' Visible = False end object SATBAKTSIRANOURUN: TIntegerField DisplayLabel = 'S�ra' DisplayWidth = 4 FieldName = 'SIRANOURUN' end object SATBAKTILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = '�LA� ADI' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = SATBAKTILACNOGetText end object SATBAKTFIYAT: TCurrencyField DisplayLabel = 'F�YATI' DisplayWidth = 14 FieldName = 'FIYAT' end object SATBAKTMIKTAR: TIntegerField DisplayLabel = 'Adet' DisplayWidth = 4 FieldName = 'MIKTAR' end object SATBAKTPARAKENDE: TStringField FieldName = 'PARAKENDE' Visible = False Size = 1 end object SATBAKTTUTARI: TCurrencyField Calculated = True DisplayWidth = 17 FieldName = 'TUTARI' end object SATBAKTSATARIH: TDateTimeField DisplayLabel = 'Sat�� Trh.' DisplayWidth = 13 FieldName = 'SATARIH' DisplayFormat = 'dd/mm/yy hh:nn' end end object ilacBulTab: TTable DatabaseName = 'ECZ' TableName = 'URUN.DB' Left = 8 Top = 232 object ilacBulTabILACNO: TIntegerField FieldName = 'ILACNO' end object ilacBulTabILACAD: TStringField FieldName = 'ILACAD' Required = True Size = 36 end object ilacBulTabMIKTAR: TIntegerField FieldName = 'MIKTAR' end end object DRBT: TTable DatabaseName = 'ECZ' TableName = 'DR.DB' Left = 288 Top = 118 object DRBTDRKOD: TIntegerField FieldName = 'DRKOD' end object DRBTDRAD: TStringField FieldName = 'DRAD' Size = 18 end object DRBTDRSOYAD: TStringField FieldName = 'DRSOYAD' Size = 18 end end object RecBakTab: TTable DatabaseName = 'ECZ' IndexName = 'KRMRTAT' TableName = 'RECETE.DB' Left = 22 Top = 128 object RecBakTabKURUMKOD: TStringField DisplayLabel = 'KURUM KODU' DisplayWidth = 12 FieldName = 'KURUMKOD' Size = 11 end object RecBakTabHASTANO: TIntegerField Alignment = taLeftJustify DisplayLabel = 'HASTA ADI' DisplayWidth = 24 FieldName = 'HASTANO' OnGetText = RecBakTabHASTANOGetText end object RecBakTabSATISNO: TFloatField FieldName = 'SATISNO' Visible = False end object RecBakTabDRKOD: TIntegerField Alignment = taLeftJustify DisplayLabel = 'DOKTOR ADI' DisplayWidth = 18 FieldName = 'DRKOD' OnGetText = RecBakTabDRKODGetText end object RecBakTabRKDEFTERNO: TStringField DisplayLabel = 'R.K.Def. No' DisplayWidth = 10 FieldName = 'RKDEFTERNO' Size = 9 end object RecBakTabRECTARIH: TDateField DisplayLabel = 'Re�.Trh.' DisplayWidth = 8 FieldName = 'RECTARIH' DisplayFormat = 'dd/mm/yy' end object RecBakTabALTARIH: TDateField DisplayLabel = 'Aln.Trh' DisplayWidth = 8 FieldName = 'ALTARIH' DisplayFormat = 'dd/mm/yy' end object RecBakTabFATARIH: TDateField DisplayLabel = 'Fat.Trh' DisplayWidth = 8 FieldName = 'FATARIH' DisplayFormat = 'dd/mm/yy' end end object RecBakSRC: TDataSource DataSet = RecBakTab Left = 60 Top = 130 end object hastaBulT: TTable DatabaseName = 'ECZ' TableName = 'HASTA.DB' Left = 188 Top = 128 object hastaBulTHASTANO: TIntegerField FieldName = 'HASTANO' end object hastaBulTBORC: TCurrencyField FieldName = 'BORC' end object hastaBulTHASTADI: TStringField FieldName = 'HASTADI' Size = 18 end object hastaBulTHASTASOYAD: TStringField FieldName = 'HASTASOYAD' Size = 18 end end object QRecKDef: TQuery DatabaseName = 'ECZ' Params.Data = { 0100020003494C4B000B080000005443639DCC42000103534F4E000B08000000 EA1B0FA1CC420001} SQL.Strings = ( 'SELECT RECETE.RKDEFTERNO, RECETE.RECTARIH' 'FROM RECETE' 'WHERE ' '(RECETE.RECTARIH>:ILK) AND' '(RECETE.RECTARIH<:SON) AND' '(RECETE.RKDEFTERNO<'#39'XX0000001'#39')' 'ORDER BY RECETE.RKDEFTERNO') Left = 104 Top = 320 object QRecKDefRKDEFTERNO: TStringField FieldName = 'RKDEFTERNO' Size = 9 end end object QHRKSIL: TQuery DatabaseName = 'ECZ' Params.Data = {010001000441734E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM HAREKET' 'WHERE (ALSAT='#39'S'#39') AND (ALSATNO=:AsNo)') Left = 302 Top = 315 end object QFATSIL: TQuery DatabaseName = 'ECZ' Params.Data = {01000100055361744E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM FATURA' 'WHERE SATISNO=:SatNo') Left = 270 Top = 315 end object QhrkUYARI: TQuery DatabaseName = 'ECZ' Params.Data = {01000100055541734E6F0006080000000000000000000000} SQL.Strings = ( 'SELECT ' 'HAREKET.CARIKOD,' 'HAREKET.BORC' 'FROM HAREKET' 'WHERE (ALSATNO=:UAsNo) AND (ALSAT='#39'S'#39') AND' '(NIHAI<>1)') Left = 240 Top = 312 object QhrkUYARICARIKOD: TStringField FieldName = 'CARIKOD' Size = 11 end object QhrkUYARIBORC: TCurrencyField FieldName = 'BORC' end end object KrmBorcSil: TTable DatabaseName = 'ECZ' TableName = 'KRMLAR.DB' Left = 369 Top = 311 object KrmBorcSilKOD: TStringField FieldName = 'KOD' Required = True Size = 11 end object KrmBorcSilBORC: TCurrencyField FieldName = 'BORC' end end object UrunHrkSTab: TTable DatabaseName = 'ECZ' IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO' MasterFields = 'ILACNO;SATARIH;SATISNO;SIRANOURUN' MasterSource = SATBAKRSC TableName = 'URUNHRK.DB' Left = 328 Top = 312 object UrunHrkSTabGCTARIH: TDateTimeField DisplayWidth = 15 FieldName = 'GCTARIH' end object UrunHrkSTabILACNO: TIntegerField DisplayWidth = 10 FieldName = 'ILACNO' end object UrunHrkSTabALSATNO: TFloatField DisplayWidth = 10 FieldName = 'ALSATNO' end object UrunHrkSTabCIKMIK: TIntegerField DisplayWidth = 10 FieldName = 'CIKMIK' end object UrunHrkSTabSIRANO: TIntegerField DisplayWidth = 10 FieldName = 'SIRANO' end end object QSILSAT: TQuery DatabaseName = 'ECZ' Params.Data = {0100010006536174694E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM SATIS' 'WHERE SATISNO=:SatiNo') Left = 208 Top = 312 end object QsskREC: TQuery DatabaseName = 'ECZ' Params.Data = {0100010007536174696D4E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM RECSSK' 'WHERE SATISNO=:SatimNo') Left = 272 Top = 344 end object QSSKREC_A: TQuery DatabaseName = 'ECZ' Params.Data = {010001000453614E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM RECSSK_A' 'WHERE SATISNO=:SaNo') Left = 304 Top = 344 end object Table1: TTable DatabaseName = 'ECZ' TableName = 'RECSSK_A.DB' Left = 408 Top = 312 end object QSTKSIL: TQuery DatabaseName = 'ECZ' Params.Data = {01000100077361744E6F73750006080000000000000000000000} SQL.Strings = ( 'DELETE FROM URUNHRK ' 'WHERE (ALSATNO=:satNosu) AND' '(CIKMIK IS NOT NULL)') Left = 360 Top = 272 end object RecKayitNo: TTable DatabaseName = 'ECZ' TableName = 'RKAYIT.DB' Left = 146 Top = 356 object RecKayitNoRECETEKAYITNO: TStringField FieldName = 'RECETEKAYITNO' Size = 9 end end object prosesTab: TTable DatabaseName = 'ECZ' TableName = 'PROSES.DB' Left = 16 Top = 336 object prosesTabTARIH: TDateTimeField FieldName = 'TARIH' end object prosesTabACIKLA: TStringField FieldName = 'ACIKLA' Size = 36 end object prosesTabISLETNO: TFloatField FieldName = 'ISLETNO' end object prosesTabMIKTAR: TIntegerField FieldName = 'MIKTAR' end object prosesTabFIYAT: TCurrencyField FieldName = 'FIYAT' end object prosesTabTUTAR: TCurrencyField FieldName = 'TUTAR' end object prosesTabISLETIPI: TStringField FieldName = 'ISLETIPI' Size = 15 end end object UserAbc: TTable DatabaseName = 'ECZ' TableName = 'usera.db' Left = 48 Top = 337 object UserAbcKULLANICI: TStringField FieldName = 'KULLANICI' Size = 25 end object UserAbcURUNKARTI: TStringField FieldName = 'URUNKARTI' Size = 1 end end end